Top 10k strings from Video Basic - Issue 09 (1985)(Ingelek Jackson)(16k)(es)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
5 A$="PON EN MARCHA LA GRABADORA":
5 "4";"ESTA BIEN ESCRITO ? (S/N)";
5 "23606",z:
5 "10",z;" PARA LA GRABADORA ":
4 t$=" PULSA UNA TECLA PARA CONTINUAR "
4 U;" ";N$;" "
4 "9",N;" ~|";
4 "8",N;A$(N-2
4 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>":
4 "10",N;" \]"
4 PASO A LA PARTE";
4 * *
3 t$(2)-48":
3 T$=" ELIGE, "+N$+":":
3 *********************** *
3 "6";"LET A$=""";
3 "6";" SIGUIENTE"
3 "126-XL/2",
3 "10-a/2",U;
3 VUELTA AL PRINCIPIO";
2 t$(3)-48":
2 p$="VIDEOHARDWARE: ":
2 p$="VIDEOBREAK: ":
2 p$="VIDEOBASIC-LA PROGRAMACION: ":
2 Via Indipendenza 88
2 U;"LET A$(2
2 U;" O K ":
2 U;" 1 2 3 4 5 ":
2 PANTALLA
2 LETREROS ENTRANTES
2 LEE LOS UDG
2 I;" ";"BASIC"(I);" ";:
2 HOMBRECILLO
2 CAR LEN
2 ;"VIDEOBASIC":
2 * CAPITAL INICIAL;
2 (I/2))";" ";I;" ";:
2 "i*24+12":
2 "BIEN, "+N$+"
2 "6";" corresponde a ";
2 "5";" A B C D E F G ";
2 "23617",Z:
2 "23296"+N,
2 "2";"A$= ";
2 "(21-YP)*8-2":
2 SOFTIDEA (Como)
2 ** **
2 Tel.031-240.959
2 PARA LA GRABADORA
2
1 yp=yp+(t$(i)="b")-(t$(i)="a"):
1 y(n)=y(n+1
1 y$=" PULSA UNA TECLA PARA CONTINUAR ":
1 xp=xp+(t$(i)="d")-(t$(i)="s"):
1 x1,y1,am,px,py,pg,nn,st
1 w$=" PULSA UNA TECLA PARA CONTINUAR "
1 w$=" PARA LA GRABADORA ":
1 w$=" "
1 u;"T=TIEMPO;C=CAP.;R=TASA;A=VAR.CON"
1 u;"EXACTO !":
1 u;"-- D A T O S --"
1 u;" --- D I R E C C I O N E S ---",
1 u;" VALOR NO ACEPTABLE - OTRA VEZ ":
1 u;" INTRODUCE <E> PARA TERMINAR",:
1 u;" ":
1 u+u;t$;"11111110":
1 t$="EN ESTE CASO <A$> PUEDE NOCONTENER NINGUN CARACTER...":
1 t$="11111110":
1 t$(u+u)-48":
1 t$(u)="<":
1 t$(u)="1292"(B)
1 t$(4)-49":
1 t$(3)-49":
1 t$(3)-48)*4+2":
1 t$(3)-48",
1 t$(2)-48)*8+2":
1 t$(2)-48";
1 p;" ":
1 p;" ":
1 p$="los temas de la leccion ":
1 p$="de Cadenas ":
1 p$="VIDEOTEST: ":
1 p$="VIDEONEXT: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOJUEGO: ":
1 p$="VIDEOBASIC-EL LENGUAJE: ":
1 p$="VAL - VAL$ - IN - OUT ":
1 p$="Output, su Impresion ":
1 p$="Master Mind ":
1 p$="Manipulacion ":
1 p$="Los Canales: OPEN# - CLOSE# ":
1 p$="La Impresion ":
1 p$="LLIST - LPRINT - COPY ":
1 p$="LEN - TO - TROCEADO - STR$ ":
1 p$="Juego de adivinanzas sobre ":
1 p$="Flores Electronicas ":
1 p$="En el proximo numero... ":
1 p$="El Ahorcado ":
1 p$="El Joystick ":
1 p$="Codigos de control ASCII ":
1 p$="Arabesco ":
1 n;" ":
1 n;" ":
1 copy=23760
1 b$=b$+(w$(j)
1 attr=23813
1 a;" ":
1 a$=a$+f$(rc,i):
1 a$="LA PROGRAMACION":
1 a$=" LEN ":
1 a$=" ":
1 Z;" ";
1 Z;" ";
1 YY,XX;" ";
1 YL,XL;"1234567890QWERTYUIOPASDFGHJKLecZXCVBNMsp"(i):
1 Y,N;A$(N-2
1 Y,N;" {|";
1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
1 Y$="* PULSA UNA TECLA PARA CONTINUAR"
1 Y$="* PULSA UNA TECLA PARA CONTINUAR "
1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
1 X<21)+(30-X)*(X>20)"):
1 X,Y;T$(N):
1 W$="CONECTA LA GRABADORA"
1 VISUALIZACION BLOQUE
1 VIDEONEXT
1 VIDEOLIST
1 VIDEOHARD 4
1 VIDEOBREAKG
1 U;"OTRA VEZ..":
1 U;"INTENTALO DE NUEVO !":
1 U;"ESTA ES LA INSTRUCCION EXACTA:":
1 U;"ERROR !":
1 U;"BIEN,"+N$,,"AHORA INTRODUCE <RUN>, Y VERASFUNCIONAR TU PROGRAMA.",:
1 U;" B A S ":
1 U;" B A S I C ":
1 U;" PULSA <ENTER> AL TERMINAR",
1 U;" E X A C T O !!! ":
1 U+U,XP;A$;
1 TROCEADO
1 TIPO DE RESULTADO QUE DEVUELVE<VAL$> CADENA
1 TEST
1 TE PERMITE CALCULAR EL VALORNUMERICO DE UNA CADENA VAL
1 TABLA TEST
1 TABLA STR c
1 TABLA I/O W
1 T$="TU NOMBRE ESTA COMPUESTO DE "+
1 T$="TE PROPONGO UN NUEVO TEST. UTILIZA EL TECLADO COMO HASAPRENDIDO EN LECCIONES ANTE-RIORES, Y ESCRIBE LAS INSTRUC-CIONES QUE TE VAYA PIDIENDO.":
1 T$="TAMBIEN ES POSIBLE DIRECCIONARUN GRUPO DE CARACTERES, ESPE-CIFICANDO EL PRIMERO Y EL UL-TIMO:":
1 T$="PUESTO QUE ESTAS SE ADAPTANPARA CONTENER, ENTERA Y EXAC-TAMENTE, LA INFORMACION INDI-CADA.":
1 T$="PRINT A$()":
1 T$="PRINT A$ ( TO )":
1 T$="PARA INDICAR LA CADENA DESDEEL PRINCIPIO HASTA EL FINAL,EN LUGAR DE:":
1 T$="PARA DIRECCIONAR UNA DETERMI-NADA POSICION, ES SUFICIENTECON INDICARLA ENTRE PARAREN-TESIS, DESPUES DEL NOMBRE DELA VARIABLE:":
1 T$="NO, "+N$+"":
1 T$="LETRAS, POR TANTO A$ MIDE "+
1 T$="LA FUNCION <LEN> SIRVE PARAAVERIGUAR EL NUMERO DE CARAC-TERES QUE COMPONEN CUALQUIERVALOR ALFANUMERICO.":
1 T$="LA FUNCION <LEN> PUEDE SERUSADA TAMBIEN COMO CONSTANTEALFANUMERICA:":
1 T$="ESTO OCURRE TAMBIEN CUANDO,COMO CONTESTACION A UN <INPUT>ALFANUMERICO SE PULSA DIRECTA-MENTE LA TECLA ENTER, SIN HA-BER INDICADO NINGUN OTRO CA-RACTER.":
1 T$="ES POSIBLE OMITIR TANTO EL IN-DICE DE SALIDA COMO EL DE LLE-GADA. EN ESTE CASO SE LES CON-SIDERA RESPECTIVAMENTE IGUALESA <1>, Y A LA LONGITUD TOTALDE LA CADENA.":
1 T$="ES POSIBLE ESCRIBIR DIRECTA-MENTE:":
1 T$="EN REALIDAD NO ES ASI...":
1 T$="EN ESTE CASO A$ CONTIENE TUNOMBRE. PODRIAS DECIRME CUALES SU LONGITUD?":
1 T$="ELIGE, "+N$:
1 T$="EL <TROCEADO> ES UNA FUNCIONESPECIAL QUE PERMITE ACCEDER APOSICIONES CONCRETAS, EN ELAMBITO DE LOS VALORES ALFANU-MERICOS.":
1 T$="DESPUES DE HABER LLEGADO HASTAAQUI, TE PARECERAN INUTILESHASTA LOS PARENTESIS!":
1 T$="DADO QUE A$ MIDE <5>:":
1 T$="CUANDO ASIGNES A UNA PARTE DEUNA VARIABLE UN DETERMINADOVALOR, PUEDE OCURRIR QUE ESTEULTIMO NO TENGA EXACTAMENTE LALONGITUD INDICADA POR SUS IN-DICES. EN ESTE CASO EL SPEC-TRUM SE COMPORTARA ASI:":
1 T$="CREO QUE ES MEJOR QUE VUELVASA LEER CON CALMA EL PROGRAMA,Y LO INTENTES DE NUEVO.":
1 T$="COMO HABRAS PODIDO CONSTATAR,SI EL DATO A INTRODUCIR SE EX-CEDE EN LONGITUD, ES EMPLEADOPARCIALMENTE; SI ES INSUFI-CIENTE SE INTERCALARAN ESPA-CIOS HASTA CONSEGUIR LA LONGI-TUD.":
1 T$="AUNQUE HASTA AHORA LAS VARIA-BLES Y CONSTANTES ALFANUMERI-CAS HAYAN SIDO TRATADAS COMOENTIDADES UNICAS E INDIVISI-BLES, ES SIN EMBARGO POSIBLEACCEDER A LAS DIVERSAS POSI-CIONES QUE LA COMPONEN POR ME-DIO DEL <TROCEADO> DE CADENAS.":
1 T$="AHORA, "+N$+"":
1 T$="A$ CONTIENE SOLO <X> CUANDOMIDE <1> CARACTER.":
1 T$="A$ CONTIENE <BASIC>, PALABRACOMPUESTA DE 5 LETRAS; CUANDOMIDE <5> CARACTERES.":
1 T$="A DIFERENCIA DE LA MAYORIA DELOS DEMAS LENGUAJES, EN EL<BASIC> LAS VARIABLES ALFANU-MERICAS NO DIMENSIONADAS NOTIENEN UNA LONGITUD CONSTANTE.":
1 T$="...es equivalente a...":
1 T$="...equivale a...":
1 T$="...Y ASI SUCESIVAMENTE.":
1 T$="...SU LONGITUD ES SIMPLEMENTE<0> (CADENA NULA). ":
1 T$=" ELIGE, `:":
1 T","04<CALC. C=","04=INT(C*R)","#823","2<40
1 STR VAL 4
1 SOFTIDEA (Como)
1 SOFTIDEA (Como)
1 SCROLL=23828
1 RUTINA MAQUINA DE ESCRIBIR
1 REGISTRO DEL NOMBRE
1 R/2)=A$((X+Y) TO)","ACEPTA TAMBIEN EXPRESIONES DEUNA CIERTA COMPLEJIDAD. PEROES NECESARIO QUE LOS INDICESNO SUPEREN LA LONGITUD DE LASRESPECTIVAS CADENAS.",""
1 PROGRAMA
1 PORTADA
1 PON EN MARCHA
1 P$="VIDEONEXT":
1 P$="VIDEOLIST":
1 P$="VIDEOBASIC-EL LENGUAJE: ":
1 P$="VAS A VER DE NUEVO ESTA LEC-CION ? (S/N)":
1 P$="PUEDES PULSAR MAS DE UN INTE-RRUPTOR SIMULTANEAMENTE SI,POR EJEMPLO, DESEAS MOVERTE ENDIAGONAL.":
1 P$="POR EJEMPLO, SI DESPLAZAS LAPALANCA A LA DERECHA, SE ACTI-VARA EL INTERRUPTOR CORRESPON-DIENTE.":
1 P$="PARA TOMAR DEL JOYSTICK CUALES LA DIRECCION REQUERIDA,BASTA LEER EL PORT 31, ME-DIANTE LA INSTRUCCION 'IN'. CADA TECLA CORRESPONDE A UNBIT DE ESTE PORT.":
1 P$="NO TE PREOCUPES SI TE RESULTAUN POCO DIFICIL DE ENTENDER.SIGUE ATENTAMENTE LA EXPLICA-CION DE 'IN' Y 'OUT'.":
1 P$="LOS INTERRUPTORES CONECTADOSMEDIANTE UN INTERFACE, LE IN-FORMAN SOBRE LA DIRECCION RE-QUERIDA.":
1 P$="INTERNAMENTE UN JOYSTICK ESTAFORMADO POR 5 INTERRUPTORESQUE SE CIERRAN POR LA PRESIONEJERCIDA EN LA PALANCA CEN-TRAL.":
1 P$="ESTE ES UN JOYSTICK ESTANDARPARA EL SPECTRUM. EXISTEN VA-RIOS MODELOS, PERO TODOS FUN-CIONAN DE IGUAL MODO.":
1 P$="EN ESTA LECCION HABLAREMOS DEUN TEMA QUE TE INTERESARA: ELJOYSTICK.":
1 P$="EL INTERFACE MAS COMUN PARA ELSPECTRUM ES EL KEMPSTON.":
1 P$="EL INTERFACE CONVERTIRA ESTENIVEL LOGICO, Y LO ENVIARA ALA C.P.U.":
1 P$=" en el numero 10 ":
1 OPERANDO PRINCIPAL EN EL <TRO-CEADO> TO
1 O,i;A$(i-2
1 NUMERO DEL PORT QUE LEE LA LI-NEA <1...5> 63486
1 NUMERO DE POSICIONES QUE TIENEUN JOYSTICK 8
1 N,C6;E$+" ":
1 N$=N$+" ":
1 LETREROS ROTANTES
1 LETRERO ROTATORIO
1 LEN EJER
1 LEE UNA DIRECCION DEL PORT IN
1 LA INSTRUCCION <OUT> SIRVE PA-RA ENVIAR UN BYTE DE DATOS ACUALQUIER DIRECCION DEL PORT,PRESUMIBLEMENTE CONECTADO AUNA UNIDAD DE I/O (ENTRADA/SA-LIDA).% %COMO RECORDARAS, LA CPU DISPO-NE DE NUMEROSAS LINEAS PARACOMUNICARSE CON EL EXTERIOR:16 DE DIRECCIONAMIENTO, 8 PARALOS DATOS,Y OTRAS DE CONTROL.%LA INSTRUCCION& &OUT iiii,dd& &ESTABLECE LAS LINEAS DE DIREC-CIONAMIENTO SEGUN EL CODIGOBINARIO (UNA POR BIT), CORRES-PONDIENTE A <iiii>, Y LAS DEDATOS <dd>. ADEMAS ACTIVA DOS LINEAS: UNADENOMINADA <IORQ> (I/O RE-QUEST) QUE SIGNIFICA: PETICIONDE UNIDAD PERIFERICA; Y OTRADENOMINADA <WR> (WRITE) QUESIGNIFICA: ESCRITURA.% %ESTAS DOS LINEAS SON ACCESI-BLES DESDE EL CONECTOR PLANODE 52 CONTACTOS, SITUADO DE-TRAS DEL <SPECTRUM>.# #LA FUNCION <IN> CONSTITUYE ELCOMPLEMENTO NATURAL DE <OUT>.ESTA DEVUELVE EL VALOR LEIDOEN EL PORT ESPECIFICADO POR ELARGUMENTO NUMERICO. DESPUES, ESTE VALOR SERA UTI-LI
1 LA GRABADORA
1 JUEGO 9
1 INFORMACION DE TIPO NUMERICA DIGITAL
1 INDOVINA C
1 IN OUT p
1 IMPRIMA EL TOTAL DE CADA EJER-CICIO ANUAL, CALCULADO SEGUNLA FORMULA DEL INTERES COM-PUESTO.",""
1 HAS ESCRITO UN PROGRAMA DE TI-PO FINANCIERO OBTENIENDO, EN-TRE OTRAS, UNA FUNCION INEXIS-TENTE EN EL <SPECTRUM>: EL EN-COLUMNADO NUMERICO."
1 G$=W$(R,K)
1 ES CORRECTA LA EXPRESION LET A=VAL"173*9" ? SI
1 ENVIA UN DATO A UN DISPOSITIVOEXTERNO OUT
1 EJER. STR
1 E$=" "
1 Created with Ramsoft MakeTZX
1 CONVIERTE UN NUMERO EN CADENA STR$
1 CONTRARIA A LA INFORMACION DI-GITAL ANALOGICA
1 CC-AA,DD-BB,EE:
1 CAR TEST
1 CAR STR
1 CAR PROG
1 CAR NEXT
1 CAR LIST
1 CAR JUEGO
1 CAR IN OUT
1 CAR HARD
1 CAR EJER
1 CAR BRAK
1 CALCULA LA LONGITUD DE SU CA-DENA ARGUMENTO LEN
1 C;C","03CFIN CICLO","<:1;","2C60
1 C8,C6;J;" LETRAS.":
1 C8,C6;F;" LETRA";(""
1 C8,C6;"ZX SPECTRUM!!!":
1 C8,C6;"QUE YO PROPON- ";
1 C8,C6;"PON ATENCION!":
1 C8,C6;"INTENTO.":
1 C8,C6;"HAS ADIVINADO";
1 C8,C6;"HABRAS PERDIDO.";
1 C8,C6;"EL QUE PODRAS";
1 C8,C6;"CADA VEZ. ":
1 C8,C6;"BRA QUE TE IRE";
1 C8,C6;"ADIVINAR, ";
1 C7,C6;"UNA LETRA ";
1 C7,C6;"UN JUEGO EN";
1 C7,C6;"TU ORDENADOR";
1 C7,C6;"TAR LA PALA-";
1 C7,C6;"TA FORMADA POR ";
1 C7,C6;"SOLO
1 C7,C6;"SEIS ERRORES";
1 C7,C6;"PALABRA A ";
1 C7,C6;"EL ";E-
1 C7,C6;"ADIVINADO ";
1 C6,C6;"TE PROPONGO";
1 C6,C6;"PULSA:";
1 C6,C6;"PULSA: ";
1 C6,C6;"PUEDES PULSAR ";
1 C6,C6;"LA PALABRA ES-";
1 C6,C6;"INTRODUCIRAS ";
1 C6,C6;"INTRODUCE LA ";
1 C6,C6;"HOLA,SOY ";
1 C6,C6;"HAZ TU";
1 C6,C6;"HAS COMETIDO";
1 C6,C6;"DESPUES DE";
1 C6,C6;"DEBERAS ACER-";
1 C6,C6;"BIEN. HAS ";
1 C6,C6;"AHORCADO.";
1 C2,N;" ";
1 C,C6;"MIGO O CON-";
1 C,C6;"LA PALABRA ES:";
1 C,C6;"COMO MAXIMO. ":
1 B$="------------"
1 B$)","PON <A$> CON EL ULTIMO","CARACTER DE LA CADENA <B$>",""
1 AHORA INTENTA ESCRIBIR EL PRO-GRAMA EN BASE AL DIAGRAMA DEFLUJO.
1 ACUERDATE DE NUMERAR LAS LI-NEAS DE 10 EN 10, A PARTIR DE10."
1 AA,BB,CC,DD,EE:
1 A$=W$(R,J):
1 A$="VIDEOTEST ":
1 A$="PON EN MARCHA LA GRABADORA"
1 A$="ADIVINA LA PALABRA":
1 A$=" TO - TROCEADO":
1 A$=" OUT ":
1 A$=" LEN - TO - TROCEADO":
1 A$=" IN ":
1 A$(1)","IMPRIME EL PRIMER CARACTER","DE LA CADENA <A$>.",""
1 A$","IMPRIME LA LONGITUD","DE LA CADENA <A$>.",""
1 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<88888888888888888888<<<<<<<<<<<<8888<<<<<<<<<<<<<<<8<<<<<<<<<<<<888899999999999999<8<<<<<<<<<<<<8<<888888888888888<<<<<<<<<<<<<<8<<888888888888<<<<<<888<<<<<<<<8<<8888999999999<<8<<888<<<<<<<<8<<88888888888<<<<8<<888<<<<<<<<8<<8<<<<<999<<<<<88<<<<<<<<<<<<<8<<8<<<<<<<<<<<<<8<<<<<<<<<<<<<<8<<8<<<9999999<<88<<<<<<<<<<<<<<8<<888888888888888<<<<<<<<<<<<<<888<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<99999999999999???<<<<<<<<<<<<<<<9999999999999<<<<<<<<<<<<<<<<<<<99999999999999999999999999999999
1 ;N$;" ? (S/N)"
1 ;"y quita la alimentacion a tu";
1 ;"ejemplos y ejercicios";
1 ;"caricamento di":
1 ;"Y PULSA <ENTER>":
1 ;"VIDEOBASIC."
1 ;"TU PUNTACION ES ";s;" SOBRE 24."
1 ;"SPECTRUM. Hasta pronto,";
1 ;"PUNTOS:";PU
1 ;"PREGUNTA N. ";w
1 ;"PAROLA":
1 ;"PARA MEJORAR, LEE DE NUEVO";
1 ;"OTRA VEZ"
1 ;"NO TE PUEDO AYUDAR":
1 ;"Muy bien, enhorabuena!"
1 ;"MUY BIEN ";n$;
1 ;"La respuesta correcta es:";
1 ;"LET A$="""""
1 ;"LA RESPUESTA ES MUY CORTA";
1 ;"INDOVINA";
1 ;"Hasta pronto";
1 ;"HE AQUI UNA SUGERENCIA:"
1 ;"Guarda el casete en su caja";
1 ;"ESCRIBE TU NOMBRE";
1 ;"ES EXACTO."
1 ;"EN EL TECLADO";
1 ;"Attendi per il";
1 ;"ACIERTOS:";PA;
1 ;"- - - - - -"''':
1 ;"""";i$;""" esta equivocado."
1 ;" SIGUIENTE"
1 ;" ESTA BIEN ESCRITO, ";
1 ;" PARA LA GRABADORA ":
1 ;" ":
1 ;" estoy cargando "''" VIDEOHARDWARE ":
1 ;" ";
1 ;" ":
1 ;" "
1 ;" ";
1 ;" ":
1 ;" ";
1 ;" ";
1 ;" ":
1 5TRADUCCION
1 5)=""OK"""
1 5)","IMPRIME LOS 5 PRIMEROS CARAC-","TERES DE LA CADENA <A$>",""
1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?",""
1 4)=""BASIC"""
1 4)","IMPRIME <ASI> TOMANDO LOS","CARACTERES DE LA PALABRA","<BASIC>",""
1 4 O U T P U T ","04?IMPRIME ","04@RESULT. ","#823","2?50
1 23688/2-U"
1 22 - FASE DE CALCULO","COMO OBTENDREMOS LA TABLA ?",""
1 2 ELABORACION ","046CALC. R=","0471+R/100 ","#823","2620
1 1985 SOFTIDEA COMO
1 11 - FASE DE INPUT","CUALES SON LOS ELEMENTOS QUEAPARECEN EN EL PROBLEMA ?",""
1 1+R/100","049 INICIO ","04: CICLO ","#823","2930
1 1 I N P U T ","043INTROD. ","044 C-R-T ","#820","2310
1 00000000000000000000000000000000000000000000000000000000000000000000000000111111111111102110000000000000021111111111111221100000000000000222222222222222211000000000000002222222222222222110000000000000000000000000000000000000666666666660000000006600000000006666666666666666666666666666666666666666666666666666666666666666:????????????????????????????????????????????????????????????????::::???????????????????????????????????????????????????????????::::????????????????????????????88??????????????????????????????88?????????????????????:?????88?88???????????88?????::::?????88?88???????88????????89:::?????88?8888888888888888889999999???????888888888888888888999999:8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888N
1 ...................................
1 . STR$ > LA FUNCION <STR$> SIRVE PARATRANSFORMAR UN VALOR NUMERICO,EN SU CORRESPONDIENTE ALFANU-MERICO.% %ESTA NECESIDAD SURGE CUANDO,POR EJEMPLO, ES NECESARIO REA-LIZAR OPERACIONES CON LOS CA-RACTERES QUE COMPONEN EL NUME-RO MISMO, O BIEN, CUANDO SETIENE QUE CONSTRUIR CADENAS OMATRICES QUE CONTENGAN A LAVEZ, INFORMACIONES NUMERICAS YALFANUMERICAS (LISTAS TELEFO-NICAS, LISTADOS, FECHAS, ETC ...).% %EL RESULTADO QUE PROPORCIONA<STR$> CONSISTE EN LA MISMASERIE DE CARACTERES QUE SONNECESARIOS PARA IMPRIMIR UNNUMERO MEDIANTE <PRINT>, IN-CLUYENDO (SI LO HUBIERA) ELSIGNO Y EL PUNTO DECIMAL.# #. VAL > LA FUNCION <VAL> SIRVE PARACALCULAR EL VALOR DE UNA CADE-NA O UNA CONSTANTE ALFANUMERI-CA, TAL Y COMO HARIA <LET> CONUN ARGUMENTO SIMILAR.% %POR LO TANTO, EL ARGUMENTOPUEDE ESTAR CONSTITUIDO, ADE-MAS DE POR CONSTANTES NUMERI-CAS, POR SIGNOS ARITMETICOSOTRAS VARIABLES, FUNCIONES, YTO
1 -J/A,ER+J/A*.7
1 ,XX;" ";
1 ,XX;" "
1 ,X;" ";W$:
1 ,O;"PARTE SIGUIENTE";
1 ,C8;W$(R):
1 ,C7;" ":
1 ,C6;"TRA ALGUN";
1 ,C6;"PROPONIENDO.":
1 ,C6;"LA PALABRA.":
1 ,C6;"GO. ":
1 ,C6;"GA LA PALABRA ";
1 ,C6;"DUCE TU AMI- ";
1 ,C6;"DE 10 LETRAS ";
1 ,C6;"COMPETIR CON-";
1 ,C6;"AMIGO.":
1 ,C6;" ":
1 ,C5;" ";
1 ,C5;" ":
1 **AYUDA II INTENTO**
1 ***respuesta flash***
1 ***puntuacion***
1 ***pulsa tecla***
1 ***comentario final***
1 ***bloque principal***
1 ***INPUT controlado***
1 ***CLS BAJO***
1 ************************ *
1 *********************** **
1 * TASA DE INTERES;
1 * TANTO POR CIENTO DE INTERES;
1 * PLAZO DE IMPOSICION;
1 * PLAZO DE IMPOSICION.",""
1 * ***********************
1 * ***********************
1 * ***********************
1 * *
1 ));q$(q,65
1 )","IMPRIME LOS 6 ULTIMOS CARAC-","TERES DE LA CADENA <A$>",""
1 )","HE AQUI UN SISTEMA SENCILLOPARA DESPLAZAR A LA IZQUIERDAUNA POSICION, TODOS LOS CARAC-TERES QUE COMPONGAN LA CADENA<A$>.",""
1 (a/(u+u)):
1 (a/(u+u)))+t$:
1 ("96300369"(i)+"+8"):
1 '""R "";R'""T "";T"
1 "xg+xs/2",yg+ys*
1 "i*16-196",z:
1 "TRAVIESO","NAVE","SOLDADO","GENIO","ORDENADOR","CILINDRO","OJO","CIRCUITO","PREGUNTA","AGUA"
1 "TE ACONSEJO QUE LEAS ATENTA-MENTE LOS MENSAJES E INDICA-CIONES DE LAS INSTRUCCIONES<PRINT> E <INPUT>.",""
1 "SPECTRUM","EUROPA","VIDEOBASIC","MADRID","PALABRA","COLEGIO","DOMADOR","INCENDIO","ESPERAR","EXPERTO"
1 "SILENCIO","DISFRUTAR","CANSADO","MOVIMIENTO","SEMBRAR","OCTUBRE","FIESTA","ANILLO","COLOR","PUERTA"
1 "RESPUESTA = ";
1 "PRINT LEN (A$+B$)","ESTA INSTRUCCION IMPRIME LASUMA DE LAS LONGITUDES DE <A$>Y <B$>.",""
1 "PRINT A$(3 TO 5)","ESTA INSTRUCCION IMPRIME LOSCARACTERES DE LAS POSICIONES3, 4, Y 5 DE LA CADENA A$.",""
1 "PISTA","MONTAR","ESTUDIAR","LAGO","FELIZ","VERANO","MAGO","INDICE","LIBRO","PESCA"
1 "MEDICINA","MISTERIO","DELFIN","FEBRERO","ESPACIAL","FRAGIL","DIFICIL","PALETAS","ALFABETO","CUADRADO"
1 "Los datos necesarios son:
1 "LET X=LEN A$","ESTA ES LA FORMA MAS COMUN DEUSAR LA FUNCION <LEN>. LA VA-RIABLE NUMERICA <X> CONTENDRALA LONGITUD DE LA CADENA <A$>.",""
1 "LET X=LEN (""BASIC""+"" ""+C$)","ES POSIBLE EMPLEAR COMO ARGU-MENTO CUALQUIER EXPRESION QUEDEVUELVA VALORES ALFANUMERI-COS.",""
1 "LET A$=A$(2
1 "LET A$=""ABCD""(2)","EL TROCEADO TAMBIEN TRATACONSTANTES. EN EL EJEMPLO A$VALDRA ""B"".",""
1 "LET A$()=""BASIC""","SUPONIENDO QUE A$ TENGA DELONGITUD <3> CARACTERES, DES-PUES DE ESTA INSTRUCCION TODA-VIA TENDRA UNA LONGITUD DE<3>, Y CONTENDRA <BAS>.",""
1 "I";"A$(";I;")";
1 "I";"A$(";"1423"(I);" TO ";"2445"(I);")";
1 "El resultado final sera la im-presion de una tabla que nosindique el TOTAL correspon-diente a cada imposion anual,tabulado en la columna <30>.",""
1 "ESTA VEZ, "+N$+"","APROVECHAREMOS LAS INSTRUCCIO-NES QUE HEMOS APRENDIDO PARAESCRIBIR UN PROGRAMA DE TIPOFINANCIERO.",""
1 "DESEAMOS UN PROGRAMA QUE, DA-DOS:
1 "Convertiremos a decimal eltanto por ciento del interes;y despues aplicaremos la for-mula del interes sencillo paracada imposicion anual.",""
1 "CARTON","PUPITRE","CIELO","PROGRAMA","ERROR","BOTON","CALCIO","FLORES","AUTOMOBIL"
1 "7";" O K "(I);:
1 "7";" ESTOY CARGANDO VIDEOTEST":
1 "6";"PULSA";
1 "6";"PRINT LEN ""MADRID""":
1 "6";"LET X=LEN """+N$+""""
1 "5";"PRINT A$(2 TO )"'':
1 "5";"PRINT A$( TO 3)"'':
1 "5";"HE AQUI COMO ESTA DIRECCIONADOEL TECLADO",,:
1 "5";"7 6 5 4 3 2 1 0 ":
1 "5";"5 4 3 2 1 0 9 8 7 6 5 4 3 2 1 0 ":
1 "40-i*8",z:
1 "4";"ESTA BIEN ESCRITO ? (S/N)"
1 "35-i*8",z:
1 "3";"TECLADO Y PULSA <ENTER>":
1 "3";"OUT ";j;",";b:
1 "3";"ESCRIBE TU NOMBRE EN EL";
1 "3";"ESCRIBE TU NOMBRE EN EL TECLADO Y PULSA <ENTER>"
1 "28"-J/A,ER+J/A*.7
1 "254+256*(255-2^(i-1))"
1 "2445"(I)):
1 "23658",C8:
1 "23617",u:
1 "23617",U:
1 "23570",C6
1 "23295+I",
1 "20",u;"0 1 2 3 4 4 3 2 1 0"
1 "2";"PRINT A$(2 TO 5)":
1 "2";"PRINT A$(1 TO 3)"
1 "2";"BASIC"(I):
1 "2";"BASIC"(
1 "19",xl;"^";
1 "168-i*32":
1 "166-yl*8":
1 "124-XL/2",
1 "120-i*24":
1 "10";"VIDEOBASIC":
1 "10";"OTRA VEZ !":
1 "10";"ERROR !";
1 "0000@@@@"(i)-
1 "0";"BASIC";
1 "...Y AHORA, ALGUN EJEMPLO DEUSO PRACTICO SOBRE LA FUNCION<LEN> Y EL <TROCEADO>.",""
1 "*1 ","% "
1 ""C "";C"+"
1 ""BASIC""(I)","IMPRIME EL CARACTER DE LA","PALABRA <BASIC> INDICADO","POR EL INDICE <I>",""
1 ""BASIC""(2
1 "","AHORA, "+N$+"","TRANSFORMAREMOS EL ANALISISPRIMERAMENTE EN UN DIAGRAMA DEFLUJO, Y SEGUIDAMENTE A INS-TRUCCIONES <BASIC>."
1 ""," VARCATA LA PORTA, POTRAI POI","SPOSTARTI IN OGNI DIREZIONE BA-","DANDO BENE DI NON FARTI RAGGIUN-","GERE DALL'AQUILA DI GUARDIA."
1 ""," PER SPOSTARTI USA I TASTI CUR-","SORE."
1 " PER FAR CIO' DEVI APRIRE LA POR","TA PER MEZZO DI UNA DELLE 9 CHIA","VI IN TUO POSSESSO, MA SOLO UNA","DI QUESTE E' QUELLA GIUSTA."
1 " LO SCOPO DEL GIOCO E' QUELLO DI","RAGGIUNGERE NEL PIU' BREVE TEMPO","POSSIBILE LA CASSAFORTE SITUATA","NELL'ANGOLO IN ALTO A DESTRA DEL","LO SCHERMO.",""
1 " CALCULO DEL INTERES "," COMPUESTO"
1 VIDEONEXT"
1 V I D E O B R E A K
1 Tel.031-240.959
1 SI LA INTRO-";
1 SI QUIERES ";
1 REPETIR";
1 OTRA VEZ";
1 MUY BIEN!!!
1 INTRODUCCION";
1 HAS PERDIDO!!
1 GRUPPO EDIT.JACKSON
1 GRABADORA
1 EN MARCHA
1 EJERCICIOS";
1 EJERCICIO"
1 COPYRIGHT 1985
1 CARGAR LA";
1 CARGAR EL VIDEOJUEGO";
1 AL BASIC ":
1 ** ***********************
1 * ***********************
1 VIDEOBASIC NUM. 9
1 SOFTIDEA (Como)
1 D A T A
1 Pon en marcha la grabadora
1 C
1 **
1 ":
1
1
1
1
1
1